Public Class CBill
    Private _intBillID As Integer
    Private _strSeqBillID As String
    Private _intCustID As Integer
    Private _dtSaleDate As Date
    Private _dblAmount As Double
    Private _dblTotalTaxes As Double
    Private _dblDiscount As Double
    Private _dblGrossAmount As Double
    Private _dtDueDate As Date
    Private _strRemark As String
    'Private _objPayment As CPayment

    Public Sub New()

    End Sub

    Public Property BillID() As Integer
        Get
            Return _intBillID
        End Get
        Set(ByVal value As Integer)
            _intBillID = value
        End Set
    End Property

    Public Property SeqBillID() As String
        Get
            Return _strSeqBillID
        End Get
        Set(ByVal value As String)
            _strSeqBillID = value
        End Set
    End Property
    Public Property CustID() As Integer
        Get
            Return _intCustID
        End Get
        Set(ByVal value As Integer)
            _intCustID = value
        End Set
    End Property
    Public Property SaleDate() As Date
        Get
            Return _dtSaleDate
        End Get
        Set(ByVal value As Date)
            _dtSaleDate = value
        End Set
    End Property
    Public Property Amount() As Double
        Get
            Return _dblAmount
        End Get
        Set(ByVal value As Double)
            _dblAmount = value
        End Set
    End Property
    
   
    Public Property TotalTaxes() As Double
        Get
            Return _dblTotalTaxes
        End Get
        Set(ByVal value As Double)
            _dblTotalTaxes = value
        End Set
    End Property
    Public Property Discount() As Double
        Get
            Return _dblDiscount
        End Get
        Set(ByVal value As Double)
            _dblDiscount = value
        End Set
    End Property
    Public Property GrossAmount() As Double
        Get
            Return _dblGrossAmount
        End Get
        Set(ByVal value As Double)
            _dblGrossAmount = value
        End Set
    End Property
    
    Public Property DueDate() As Date
        Get
            Return _dtDueDate
        End Get
        Set(ByVal value As Date)
            _dtDueDate = value
        End Set
    End Property
    Public Property Remark() As String
        Get
            Return _strRemark
        End Get
        Set(ByVal value As String)
            _strRemark = value
        End Set
    End Property
    'Public Property Payment() As CPayment
    '    Get
    '        Return _objPayment
    '    End Get
    '    Set(ByVal value As CPayment)
    '        _objPayment = value
    '    End Set
    'End Property
End Class
